﻿Public Class Products1
    Dim item As ListViewItem
    Sub listdata()
        If Not rs.EOF Then
            ListView1.Items.Clear()
            rs.MoveFirst()
            Do While Not rs.EOF
                item = ListView1.Items.Add(rs.Fields("productcode").Value)
                item.SubItems.Add(rs.Fields("description").Value)
                item.SubItems.Add(rs.Fields("unitprice").Value)

                rs.MoveNext()

            Loop
        Else
            ListView1.Items.Clear()

        End If
        rs.Close()
        rs = Nothing

    End Sub
    Private Sub Products1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Module1.connect()
        rs = New ADODB.Recordset
        rs.Open("select * from products", cn, 3, 2)
        Me.listdata()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        rs = New ADODB.Recordset
        rs.Open("select * from products", cn, 3, 2)
        rs.AddNew()

        rs.Fields("productcode").Value = TextBox5.Text
        rs.Fields("description").Value = TextBox4.Text
        rs.Fields("unitprice").Value = TextBox3.Text

        rs.Update()
        rs.Close()
        rs = Nothing
        MsgBox("Adding Successful")
        rs = New ADODB.Recordset
        rs.Open("select * from products", cn, 3, 2)
        Me.listdata()
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        rs = New ADODB.Recordset
        rs.Open("SELECT * FROM products WHERE productcode = '" & TextBox5.Text & "'", cn, 3, 2)

        If Not rs.EOF Then
            TextBox4.Text = rs.Fields("description").Value
            TextBox3.Text = rs.Fields("UnitPrice").Value

        End If
        rs.Close()
        rs = Nothing
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

        TextBox5.Text = ListView1.FocusedItem.Text

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        rs = New ADODB.Recordset
        rs.Open("SELECT * from products where productcode = '" & TextBox5.Text & "'", cn, 3, 2)
        rs.Fields("description").Value = TextBox4.Text
        rs.Fields("unitprice").Value = TextBox3.Text
        rs.Update()
        rs.Close()
        rs = Nothing
        MsgBox("Editing Successful")
        rs = New ADODB.Recordset
        rs.Open("select * from products", cn, 3, 2)
        Me.listdata()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MainScreen.Show()
        Me.Hide()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox5.Text = ""
        TextBox4.Text = ""
        TextBox3.Text = ""
    End Sub
End Class